home *** CD-ROM | disk | FTP | other *** search
/ MacHome 1999 February/March / MacHome CD (February and March 1999).iso / Edutainment / INFOHIGHWAYDEMOS / demo / MENU.DCR / scripts_17.ls < prev    next >
Encoding:
Text File  |  1999-09-16  |  1.4 KB  |  48 lines

  1. on enterFrame
  2.   set ActiveStartspr to 3
  3.   set convergenceMedias to ActiveStartspr
  4.   set startBall to 4
  5.   set convergenceMediaBall to startBall + 3
  6.   set telephoneBall to startBall + 7
  7.   set televisionBall to startBall + 8
  8.   set ordinateurBall to startBall + 9
  9.   set startHighLightSpr to 14
  10.   set telephone to startHighLightSpr
  11.   set television to startHighLightSpr + 1
  12.   set ordinateur to startHighLightSpr + 2
  13.   set startHotSpot to 17
  14.   set telephoneHS to startHotSpot
  15.   set televisionHS to startHotSpot + 1
  16.   set ordinateurHS to startHotSpot + 2
  17.   updateStage()
  18.   set ro to rollOver()
  19.   puppetizeExclude(0, ro - (startHotSpot - startHighLightSpr), telephone, ordinateur)
  20.   case ro of
  21.     convergenceMedias, convergenceMediaBall:
  22.       go(the frame)
  23.     telephoneHS, telephoneBall:
  24.       puppetSprite(telephone, 1)
  25.       set the member of sprite telephone to member "ConvergenceMediastelephone"
  26.       updateStage()
  27.       go(the frame)
  28.     televisionHS, televisionBall:
  29.       puppetSprite(television, 1)
  30.       set the member of sprite television to member "ConvergenceMediastelevision"
  31.       updateStage()
  32.       go(the frame)
  33.     ordinateurHS, ordinateurBall:
  34.       puppetSprite(ordinateur, 1)
  35.       set the member of sprite ordinateur to member "ConvergenceMediasordinateur"
  36.       updateStage()
  37.       go(the frame)
  38.     otherwise:
  39.       depuppetize(telephone, ordinateur)
  40.       updateStage()
  41.       go("convergenceMediasClose")
  42.   end case
  43. end
  44.  
  45. on exitFrame
  46.   go(the frame)
  47. end
  48.